"
SUnit tests for failing test resources
"
Class {
	#name : 'FailingTestResourceTestCase',
	#superclass : 'SimpleTestResourceTestCase',
	#category : 'SUnit-Tests-Core',
	#package : 'SUnit-Tests',
	#tag : 'Core'
}

{ #category : 'utilities' }
FailingTestResourceTestCase >> clearOuterResourceStateDuring: aBlock [
	"Make the resource impossible to make available, then ensure that every test raises a failure but not an error (which its setUp would do if it reached it and the resource were nil)."

	^super clearOuterResourceStateDuring:
		[SimpleTestResource preventAvailabilityDuring:
			[self should: aBlock raise: self defaultTestFailure]]
]
